(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     13756,        318]
NotebookOptionsPosition[     12968,        298]
NotebookOutlinePosition[     13388,        314]
CellTagsIndexPosition[     13345,        311]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Nybom", " ", "and", " ", "Stuhler"}], ",", " ", 
    RowBox[{
     RowBox[{
     "Interpreting", " ", "Trends", " ", "in", " ", "Intergenerational", " ", 
      "Mobility"}], " ", "-", " ", 
     RowBox[{"Figure", " ", "A4a"}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "Raising", " ", "the", " ", "compulsory", " ", "schooling", " ", "level"}],
    " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"Education", " ", "coefficient"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"simple", " ", "=", " ", 
    RowBox[{"{", 
     RowBox[{
     "0.519", ",", "0.519", ",", "0.405", ",", "0.477", ",", "0.478", ",", 
      "0.478"}], "}"}]}], "\[IndentingNewLine]", 
   RowBox[{"responsedelta", "=", " ", 
    RowBox[{"{", 
     RowBox[{
     "0.520", ",", "0.520", ",", "0.405", ",", "0.449", ",", "0.456", ",", 
      "0.457"}], "}"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Steady", " ", "state", " ", "before", " ", "T"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"ss", " ", "=", " ", 
    RowBox[{"{", 
     RowBox[{"0.520", ",", "0.520", ",", "0.520"}], "}"}]}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Draw", " ", "figure"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{"ListLinePlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"ss", ",", "simple", ",", "responsedelta"}], "}"}], ",", 
     RowBox[{"InterpolationOrder", "\[Rule]", "0"}], ",", 
     RowBox[{"Mesh", "\[Rule]", "Full"}], " ", ",", " ", 
     RowBox[{"AxesLabel", " ", "\[Rule]", " ", 
      RowBox[{"{", 
       RowBox[{"t", ",", 
        RowBox[{"HoldForm", "[", 
         RowBox[{"Subscript", "[", 
          RowBox[{"\[Beta]", ",", "edu"}], "]"}], "]"}]}], "}"}]}], ",", " ", 
     
     RowBox[{"AxesOrigin", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0.8", ",", "0.37"}], "}"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0.37", ",", "0.55"}], "}"}]}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Black", ",", "Thick"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", "Thick"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", "Dashed"}], "}"}]}], "}"}]}], ",", " ", 
     RowBox[{"Ticks", " ", "\[Rule]", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1", ",", "\"\<T-2\>\""}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"2", ",", "\"\<T-1\>\""}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"3", ",", "\"\<T\>\""}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"4", ",", "\"\<T+1\>\""}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"5", ",", "\"\<T+2\>\""}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"6", ",", "\"\<T+3\>\""}], "}"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
         "0.38", ",", "0.40", ",", "0.42", ",", " ", "0.44", ",", "0.46", ",",
           "0.48", ",", "0.50", ",", "0.52", ",", "0.54", ",", "0.56"}], 
         "}"}]}], "}"}]}], " ", ",", " ", 
     RowBox[{"PlotMarkers", "\[Rule]", " ", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\>\"", ",", "\"\<\[FilledSmallSquare]\>\"", ",", 
        "\"\<\[FilledSmallSquare]\>\""}], "}"}]}]}], "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Plot", " ", "label", " ", "added", " ", 
     RowBox[{"manually", "!"}]}], " ", "*)"}]}]}]], "Input",
 CellChangeTimes->{{3.547476043096222*^9, 3.5474762497761*^9}, {
   3.547476594426877*^9, 3.5474766251696873`*^9}, {3.547476846736478*^9, 
   3.5474768730068817`*^9}, {3.547476912056032*^9, 3.547476925845028*^9}, {
   3.547477124135684*^9, 3.54747716004154*^9}, {3.547485046502116*^9, 
   3.547485156067123*^9}, {3.547485234334579*^9, 3.547485239412272*^9}, {
   3.547485329752323*^9, 3.547485352176402*^9}, {3.547541564220723*^9, 
   3.5475417736103697`*^9}, {3.547542154763465*^9, 3.547542159543511*^9}, {
   3.547542229248678*^9, 3.547542338131514*^9}, {3.5475424198512897`*^9, 
   3.547542497920104*^9}, {3.547542532677988*^9, 3.5475425616831417`*^9}, {
   3.5475426178029003`*^9, 3.547542663141144*^9}, {3.547545467510598*^9, 
   3.547545600010557*^9}, {3.547545634330052*^9, 3.5475456418706627`*^9}, {
   3.5475457612940283`*^9, 3.547545765060513*^9}, {3.547545862789178*^9, 
   3.547545893677615*^9}, {3.5475459253590593`*^9, 3.547545965328599*^9}, {
   3.5475460423179502`*^9, 3.547546049902185*^9}, {3.547546101264254*^9, 
   3.547546116053773*^9}, {3.54754624426409*^9, 3.5475462511908607`*^9}, {
   3.54754631968929*^9, 3.547546326691071*^9}, {3.5952457120442753`*^9, 
   3.595245816368526*^9}, {3.595245964962186*^9, 3.595246019664338*^9}, {
   3.595246211396487*^9, 3.595246271633585*^9}, {3.5952470612271423`*^9, 
   3.59524708264211*^9}, {3.595254372037528*^9, 3.595254528849885*^9}, {
   3.595254566840712*^9, 3.595254620725881*^9}, 3.595254654112935*^9, {
   3.595254852847533*^9, 3.595254935706044*^9}, {3.595335011096705*^9, 
   3.5953350940555162`*^9}, {3.595335142874489*^9, 3.59533520076819*^9}, {
   3.5953357589324093`*^9, 3.595335759952908*^9}, {3.595335920183565*^9, 
   3.595335981665344*^9}, {3.595337797068934*^9, 3.5953378003736467`*^9}, {
   3.595340841444706*^9, 3.595340855612385*^9}, {3.595341422674964*^9, 
   3.5953414319386797`*^9}, {3.595341477672697*^9, 3.595341488710428*^9}, 
   3.5953415225519037`*^9, {3.595341790755541*^9, 3.595341790899774*^9}, {
   3.911906569491901*^9, 3.9119065889166822`*^9}, {3.911906708886557*^9, 
   3.911906712930605*^9}, {3.9119067582620993`*^9, 3.911906771338683*^9}, 
   3.911906804659333*^9, {3.911907073148871*^9, 
   3.911907111795499*^9}},ExpressionUUID->"3e34cd0c-bfea-4b56-94b5-\
f98b03c9c5d3"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.519`", ",", "0.519`", ",", "0.405`", ",", "0.477`", ",", "0.478`", ",", 
   "0.478`"}], "}"}]], "Output",
 CellChangeTimes->{3.911906483568651*^9},
 CellLabel->"Out[1]=",ExpressionUUID->"29b72d6a-4b98-4083-ae03-b141d90d16c5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.52`", ",", "0.52`", ",", "0.405`", ",", "0.449`", ",", "0.456`", ",", 
   "0.457`"}], "}"}]], "Output",
 CellChangeTimes->{3.911906483571555*^9},
 CellLabel->"Out[2]=",ExpressionUUID->"05035121-0a1e-445a-8b3f-9e7b236930f4"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.52`", ",", "0.52`", ",", "0.52`"}], "}"}]], "Output",
 CellChangeTimes->{3.911906483572804*^9},
 CellLabel->"Out[3]=",ExpressionUUID->"08d7e434-c060-4033-a12b-590dfc510734"],

Cell[BoxData[
 GraphicsBox[{{}, {{{}, {}, 
     {GrayLevel[0], PointSize[
       NCache[
        Rational[7, 360], 0.019444444444444445`]], Thickness[Large], 
      LineBox[{{1., 0.52}, {2., 0.52}, {2., 0.52}, {3., 0.52}, {3., 
       0.52}}]}, 
     {GrayLevel[0], PointSize[
       NCache[
        Rational[7, 360], 0.019444444444444445`]], Thickness[Large], 
      LineBox[{{1., 0.519}, {2., 0.519}, {2., 0.519}, {3., 0.519}, {3., 
       0.405}, {4., 0.405}, {4., 0.477}, {5., 0.477}, {5., 0.478}, {6., 
       0.478}, {6., 0.478}}]}, 
     {GrayLevel[0], PointSize[
       NCache[
        Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6], 
      Dashing[{Small, Small}], 
      LineBox[{{1., 0.52}, {2., 0.52}, {2., 0.52}, {3., 0.52}, {3., 0.405}, {
       4., 0.405}, {4., 0.449}, {5., 0.449}, {5., 0.456}, {6., 0.456}, {6., 
       0.457}}]}}, {
     {GrayLevel[0], PointSize[
       NCache[
        Rational[7, 360], 0.019444444444444445`]], Thickness[Large], 
      GeometricTransformationBox[
       TagBox[InsetBox["", {0., 0.}],
        "InsetString"], {{{1., 0.52}}, {{2., 0.52}}, {{3., 0.52}}, {{1., 
       0.52}}, {{2., 0.52}}, {{3., 0.52}}}]}, 
     {GrayLevel[0], PointSize[
       NCache[
        Rational[7, 360], 0.019444444444444445`]], Thickness[Large], 
      GeometricTransformationBox[
       TagBox[InsetBox["\[FilledSmallSquare]", {0., 0.}],
        "InsetString"], {{{1., 0.519}}, {{2., 0.519}}, {{3., 0.405}}, {{4., 
       0.477}}, {{5., 0.478}}, {{6., 0.478}}, {{1., 0.519}}, {{2., 0.519}}, {{
       3., 0.405}}, {{4., 0.477}}, {{5., 0.478}}, {{6., 0.478}}}]}, 
     {GrayLevel[0], PointSize[
       NCache[
        Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6], 
      Dashing[{Small, Small}], GeometricTransformationBox[
       TagBox[InsetBox["\[FilledSmallSquare]", {0., 0.}],
        "InsetString"], {{{1., 0.52}}, {{2., 0.52}}, {{3., 0.405}}, {{4., 
       0.449}}, {{5., 0.456}}, {{6., 0.457}}, {{1., 0.52}}, {{2., 0.52}}, {{
       3., 0.405}}, {{4., 0.449}}, {{5., 0.456}}, {{6., 0.457}}}]}}, {
     {GrayLevel[0], PointSize[
       NCache[
        Rational[7, 360], 0.019444444444444445`]], Thickness[Large], 
      PointBox[{1., 0.52}], PointBox[{2., 0.52}], PointBox[{3., 0.52}], 
      PointBox[{1., 0.52}], PointBox[{2., 0.52}], PointBox[{3., 0.52}]}, 
     {GrayLevel[0], PointSize[
       NCache[
        Rational[7, 360], 0.019444444444444445`]], Thickness[Large], 
      PointBox[{1., 0.519}], PointBox[{2., 0.519}], PointBox[{3., 0.405}], 
      PointBox[{4., 0.477}], PointBox[{5., 0.478}], PointBox[{6., 0.478}], 
      PointBox[{1., 0.519}], PointBox[{2., 0.519}], PointBox[{3., 0.405}], 
      PointBox[{4., 0.477}], PointBox[{5., 0.478}], PointBox[{6., 0.478}]}, 
     {GrayLevel[0], PointSize[
       NCache[
        Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6], 
      Dashing[{Small, Small}], PointBox[{1., 0.52}], PointBox[{2., 0.52}], 
      PointBox[{3., 0.405}], PointBox[{4., 0.449}], PointBox[{5., 0.456}], 
      PointBox[{6., 0.457}], PointBox[{1., 0.52}], PointBox[{2., 0.52}], 
      PointBox[{3., 0.405}], PointBox[{4., 0.449}], PointBox[{5., 0.456}], 
      PointBox[{6., 0.457}]}, {}, {}, {}, {}, {}, {}, {}}, {
     {GrayLevel[0], PointSize[
       NCache[
        Rational[7, 360], 0.019444444444444445`]], Thickness[Large]}, 
     {GrayLevel[0], PointSize[
       NCache[
        Rational[7, 360], 0.019444444444444445`]], Thickness[Large]}, 
     {GrayLevel[0], PointSize[
       NCache[
        Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6], 
      Dashing[{Small, Small}]}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox[
     TagBox[
      SubscriptBox["\[Beta]", "edu"], HoldForm], TraditionalForm]},
  AxesOrigin->{0.8, 0.37},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 6.}, {0.37, 0.55}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {0, 0}},
  Ticks->{{{1, 
      FormBox["\"T-2\"", TraditionalForm]}, {2, 
      FormBox["\"T-1\"", TraditionalForm]}, {3, 
      FormBox["\"T\"", TraditionalForm]}, {4, 
      FormBox["\"T+1\"", TraditionalForm]}, {5, 
      FormBox["\"T+2\"", TraditionalForm]}, {6, 
      FormBox["\"T+3\"", TraditionalForm]}}, {{0.38, 
      FormBox["0.38`", TraditionalForm]}, {0.4, 
      FormBox["0.4`", TraditionalForm]}, {0.42, 
      FormBox["0.42`", TraditionalForm]}, {0.44, 
      FormBox["0.44`", TraditionalForm]}, {0.46, 
      FormBox["0.46`", TraditionalForm]}, {0.48, 
      FormBox["0.48`", TraditionalForm]}, {0.5, 
      FormBox["0.5`", TraditionalForm]}, {0.52, 
      FormBox["0.52`", TraditionalForm]}, {0.54, 
      FormBox["0.54`", TraditionalForm]}, {0.56, 
      FormBox["0.56`", TraditionalForm]}}}]], "Output",
 CellChangeTimes->{3.911906483882423*^9},
 CellLabel->"Out[4]=",ExpressionUUID->"2c8e9e8c-28a2-4130-bfd0-7e2a2596e12d"]
}, Open  ]]
},
WindowSize->{1336, 1183},
WindowMargins->{{Automatic, -78}, {Automatic, -188}},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
FrontEndVersion->"12.0 for Mac OS X x86 (64-bit) (April 8, 2019)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 6016, 127, 367, "Input",ExpressionUUID->"3e34cd0c-bfea-4b56-94b5-f98b03c9c5d3"],
Cell[6598, 151, 270, 6, 34, "Output",ExpressionUUID->"29b72d6a-4b98-4083-ae03-b141d90d16c5"],
Cell[6871, 159, 268, 6, 34, "Output",ExpressionUUID->"05035121-0a1e-445a-8b3f-9e7b236930f4"],
Cell[7142, 167, 215, 4, 34, "Output",ExpressionUUID->"08d7e434-c060-4033-a12b-590dfc510734"],
Cell[7360, 173, 5592, 122, 269, "Output",ExpressionUUID->"2c8e9e8c-28a2-4130-bfd0-7e2a2596e12d"]
}, Open  ]]
}
]
*)

